home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Format 4 (5.25")
/
PC Format - Issue 4 January 1992 - Disk 2.ima
/
VCAD.EXE
/
VIEWBLD.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-12-19
|
315b
|
20 lines
SCREEN 13
DEF SEG = &HA000
BLOAD "pboy.plt", 0
FOR plt = 0 TO 255
pltptr = plt * 3
r = PEEK(pltptr)
g = PEEK(pltptr + 1)
b = PEEK(pltptr + 2)
OUT 968, plt
OUT 969, r
OUT 969, g
OUT 969, b
NEXT
BLOAD "pboy.bld", 0
a$ = INPUT$(1)